home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / sys / amiga / applications / 4622 < prev    next >
Encoding:
Text File  |  1996-08-05  |  2.0 KB  |  78 lines
  1. Path: dame.de!JR-EWING
  2. From: JR-EWING@DAME.DE (jens reimer)
  3. Newsgroups: comp.sys.amiga.applications,de.comp.sys.amiga,z-netz.rechner.amiga.software
  4. Subject: Re: AREXX Problem
  5. Date: 14 Apr 96 12:04:17 +0200
  6. Message-ID: <xcOnBMD4F24aoz5@jr-ewing.dame.de>
  7. References: <xZPehMD4F24aUz1@jr-ewing.dame.shnet.org>
  8. Organization: MicroDot-Supportsystem
  9. X-Mailer: MicroDot 1.11beta16 [REGISTERED 004f24]
  10. X-Gateway: ZCONNECT UH link-gl.dinoco.de [UUCPfZ V5.68 U031]
  11. MIME-Version: 1.0
  12. Content-Type: text/plain; charset=iso-8859-1
  13. Content-Transfer-Encoding: 8bit
  14.  
  15. JR-EWING@DAME.DE (Jens Reimer) benutze seine Tastatur am 05.04.1996 um 08:36:17 Uhr, um
  16. folgenden Text unter dem Betreff "AREXX Problem" zu erzeugen:
  17. > Ich habe mit einem ARexx Programm Probleme.
  18. > Wahrscheinlich bin ich einfach zu dΣmlich und sehe den Wald vor lauter BΣumen
  19. > nicht...
  20. > Es k÷nnte aber auch sein, da▀ ich etwas grundsΣtzlich falsch gemacht habe.
  21. > Vielleicht habt ihr einen Tip!
  22. > 
  23. > /* Importieren von Superbase Dateien fⁿr DataBase Professional */
  24. > 
  25. > OPTIONS RESULTS
  26. > 
  27. > device ="CON:0/0/640/200//WAIT/CLOSE/SCREENDATABASE"
  28. > 
  29. > ADDRESS Command
  30. > 'C:Requestfile TITLE="Superbase File" PATTERN="#?.sbf" NOICONS PUBSCREEN DataBase >T:input'
  31. > 
  32. > ADDRESS DATABASE
  33. > Requesttext "Feldseperator (HEX)"
  34. > feldsep = result
  35. > Requesttext "Recordseperator (HEX)"
  36. > recsep = result
  37. > TRACE ?R
  38. > /* Bis hierhin ist noch alles ok */
  39. > /* In T:input steht die Datei */
  40. > IF ~Open(sbfile,T:input,R) THEN DO
  41. > /*              ^^^^^^^ */
  42. > /* Hier nicht mehr, lt trace wird ausdruck nicht ausgewertet !!!*/
  43. > /* WIE bekomme ich das hin ???*/
  44. > 
  45. > IF ~Open(out, device, W) THEN DO
  46. > 
  47. > DO WHILE ~EOF(sbfile)
  48. >    DO while (data = READCH(sbfile,1)) == recsep
  49. >       /* Hier zwischen kommt noch etwas */
  50. >       WRITECH(out,data)
  51. >    END
  52. > END
  53. > 
  54. > Close(out)
  55. > END
  56. > 
  57. > Close(sbfile)
  58. > END
  59. > 
  60. > TRACE o
  61. > 
  62. > EXIT
  63. > 
  64. Danke fⁿr die Tips!!!
  65. Hat sich erledigt
  66. Es lΣuft jetzt
  67.  
  68.  
  69. Und Tschⁿss,
  70.  
  71. Jens Reimer
  72. --
  73. MicroDot 1.11Beta16
  74. EMAIL: jr-ewing@dame.de
  75.      : jens.reimer@hamburg.netsurf.de
  76.  
  77.  
  78.